This is a Rmarkdown file documented the mediation model for neighbourhood envrionment mediate the prediction from 6 polygenic scores towards academic achievement across compulsory education (age 7, 9, 12, 16)
load the packages and dataset
library(lavaan)## This is lavaan 0.6-12
## lavaan is FREE software! Please report any bugs.
library(psych)##
## Attaching package: 'psych'
## The following object is masked from 'package:lavaan':
##
## cor2cov
library(foreign)
library(dplyr)##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(dlookr)##
## Attaching package: 'dlookr'
## The following object is masked from 'package:psych':
##
## describe
## The following object is masked from 'package:base':
##
## transform
library(tidyverse)## ── Attaching packages
## ───────────────────────────────────────
## tidyverse 1.3.2 ──
## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4
## ✔ tibble 3.1.8 ✔ stringr 1.4.1
## ✔ tidyr 1.2.0 ✔ forcats 0.5.2
## ✔ readr 2.1.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ ggplot2::%+%() masks psych::%+%()
## ✖ ggplot2::alpha() masks psych::alpha()
## ✖ tidyr::extract() masks dlookr::extract()
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
library(pastecs)##
## Attaching package: 'pastecs'
##
## The following object is masked from 'package:tidyr':
##
## extract
##
## The following object is masked from 'package:dlookr':
##
## extract
##
## The following objects are masked from 'package:dplyr':
##
## first, last
library(lavaan)
library(psychometric)## Loading required package: multilevel
## Loading required package: nlme
##
## Attaching package: 'nlme'
##
## The following object is masked from 'package:dplyr':
##
## collapse
##
## Loading required package: MASS
##
## Attaching package: 'MASS'
##
## The following object is masked from 'package:dplyr':
##
## select
##
##
## Attaching package: 'psychometric'
##
## The following object is masked from 'package:ggplot2':
##
## alpha
##
## The following object is masked from 'package:psych':
##
## alpha
library(umx)## Loading required package: OpenMx
## OpenMx may run faster if it is compiled to take advantage of multiple cores.
##
## Attaching package: 'OpenMx'
##
## The following object is masked from 'package:psych':
##
## tr
##
## For an overview type '?umx'
##
## Attaching package: 'umx'
##
## The following object is masked from 'package:psych':
##
## reliability
##
## The following object is masked from 'package:stats':
##
## loadings
library(nFactors)## Loading required package: lattice
##
## Attaching package: 'nFactors'
##
## The following object is masked from 'package:lattice':
##
## parallel
library(factoextra)## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
library(reshape2)##
## Attaching package: 'reshape2'
##
## The following object is masked from 'package:tidyr':
##
## smiths
library(ltm)## Loading required package: msm
## Loading required package: polycor
##
## Attaching package: 'polycor'
##
## The following object is masked from 'package:psych':
##
## polyserial
##
##
## Attaching package: 'ltm'
##
## The following object is masked from 'package:psych':
##
## factor.scores
library(gdata)## gdata: read.xls support for 'XLS' (Excel 97-2004) files ENABLED.
##
## gdata: read.xls support for 'XLSX' (Excel 2007+) files ENABLED.
##
## Attaching package: 'gdata'
##
## The following objects are masked from 'package:pastecs':
##
## first, last
##
## The following object is masked from 'package:purrr':
##
## keep
##
## The following objects are masked from 'package:dplyr':
##
## combine, first, last
##
## The following object is masked from 'package:lavaan':
##
## nobs
##
## The following object is masked from 'package:stats':
##
## nobs
##
## The following object is masked from 'package:utils':
##
## object.size
##
## The following object is masked from 'package:base':
##
## startsWith
library(purrr)
library(Hmisc)## Loading required package: survival
## Loading required package: Formula
##
## Attaching package: 'Hmisc'
##
## The following object is masked from 'package:dlookr':
##
## describe
##
## The following objects are masked from 'package:dplyr':
##
## src, summarize
##
## The following object is masked from 'package:psych':
##
## describe
##
## The following objects are masked from 'package:base':
##
## format.pval, units
require(mediation)## Loading required package: mediation
## Loading required package: Matrix
##
## Attaching package: 'Matrix'
##
## The following objects are masked from 'package:OpenMx':
##
## %&%, expm
##
## The following objects are masked from 'package:tidyr':
##
## expand, pack, unpack
##
## Loading required package: mvtnorm
## Loading required package: sandwich
## mediation: Causal Mediation Analysis
## Version: 4.5.0
##
##
## Attaching package: 'mediation'
##
## The following object is masked from 'package:psych':
##
## mediate
library(flexplot)##
## Attaching package: 'flexplot'
##
## The following object is masked from 'package:ggplot2':
##
## flip_data
##
## The following object is masked from 'package:psych':
##
## rescale
library(devtools)## Loading required package: usethis
library(semPlot)
library(tidySEM)
dat <- read.csv(file = "env_mediation_prepped_bothtwins_random1_twin1and2_genotyped.csv", header = T)Select variables
##### 23 academic outcomes measures #####
EA_all=c("gte1", # English achievement composite (7 year teacher), standardised"
"gtm1", # Math achievement composite (7 year teacher), standardised"
"gta1", # overall achievement composite (7 year teacher), standardised"
"ite1",
"itm1",
"its1",
"it3a1", # "3-subject overall academic achievement composite (9 year teacher), standardised"
"it2a1", #
"lte1",
"ltm1",
"lts1",
"lt2a1", # "2 (english and math) -subject overall academic achievement composite (12 year teacher), standardised"
"lt3a1", # # "3-subject overall academic achievement composite (12 year teacher), standardised"
"pcexgcsenum1",
# number of GCSE passes, at A grade
"pcexgcseabcnum1",
# point score total for gcse passe
"pcexgcsepsct1",
"pcexgcsegrdm1",
"pcexothergrdm1",
"pcexadvgrdm1",
"pcexallgrdm1",
"pcexgcseengm1",
"pcexgcsescim1",
"pcexgcsematm1",
"pcexgcsecorem1")
##### 6 PGS #####
GPS1=c("EA3_Lee2018_no23andme_corrected_FRCT1", "IQ_Savage2018_corrected_FRCT1",
"c_chol_cog_noncog_corrected_FRC_1", "nc_chol_cog_noncog_corrected_FRC_1",
"Cog_corrected_FRC_1", "NonCog_corrected_FRC_1")
#### 6 neighbourhoods environment mediators ######
Mediator_nei=c(
# ========== Pollution ==========
## Mean composites
"pollution",
# ========== Neighborhood quality ==========
## Mean composites
"neighbourhood_quality_occupancyrating",
"neighbourhood_quality_healthrating",
"neighbourhood_quality_householdsize",
"neighbourhood_quality_populinhouseholds",
# ========== Neighborhood economy ==========
## Mean composites
"neighbourhood_economy_qualification"
)
### 828 mediation models intotal ###EA3_Lee2018_no23andme_corrected_FRCT1_pollution_gte1 <- "
#path c (direct effect)
gte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_gte1 <- "
#path c (direct effect)
gte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_gte1 <- "
#path c (direct effect)
gte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_gte1 <- "
#path c (direct effect)
gte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_gte1 <- "
#path c (direct effect)
gte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_gte1 <- "
#path c (direct effect)
gte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_gtm1 <- "
#path c (direct effect)
gtm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gtm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_gtm1 <- "
#path c (direct effect)
gtm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gtm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_gtm1 <- "
#path c (direct effect)
gtm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gtm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_gtm1 <- "
#path c (direct effect)
gtm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gtm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_gtm1 <- "
#path c (direct effect)
gtm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gtm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_gtm1 <- "
#path c (direct effect)
gtm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gtm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_gta1 <- "
#path c (direct effect)
gta1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gta1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_gta1 <- "
#path c (direct effect)
gta1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gta1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_gta1 <- "
#path c (direct effect)
gta1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gta1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_gta1 <- "
#path c (direct effect)
gta1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gta1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_gta1 <- "
#path c (direct effect)
gta1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gta1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_gta1 <- "
#path c (direct effect)
gta1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
gta1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_ite1 <- "
#path c (direct effect)
ite1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ite1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_ite1 <- "
#path c (direct effect)
ite1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ite1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_ite1 <- "
#path c (direct effect)
ite1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ite1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_ite1 <- "
#path c (direct effect)
ite1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ite1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_ite1 <- "
#path c (direct effect)
ite1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ite1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_ite1 <- "
#path c (direct effect)
ite1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ite1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_itm1 <- "
#path c (direct effect)
itm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
itm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_itm1 <- "
#path c (direct effect)
itm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
itm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_itm1 <- "
#path c (direct effect)
itm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
itm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_itm1 <- "
#path c (direct effect)
itm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
itm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_itm1 <- "
#path c (direct effect)
itm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
itm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_itm1 <- "
#path c (direct effect)
itm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
itm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_its1 <- "
#path c (direct effect)
its1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
its1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_its1 <- "
#path c (direct effect)
its1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
its1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_its1 <- "
#path c (direct effect)
its1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
its1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_its1 <- "
#path c (direct effect)
its1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
its1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_its1 <- "
#path c (direct effect)
its1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
its1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_its1 <- "
#path c (direct effect)
its1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
its1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_it3a1 <- "
#path c (direct effect)
it3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_it3a1 <- "
#path c (direct effect)
it3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_it3a1 <- "
#path c (direct effect)
it3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_it3a1 <- "
#path c (direct effect)
it3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_it3a1 <- "
#path c (direct effect)
it3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_it3a1 <- "
#path c (direct effect)
it3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_it2a1 <- "
#path c (direct effect)
it2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_it2a1 <- "
#path c (direct effect)
it2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_it2a1 <- "
#path c (direct effect)
it2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_it2a1 <- "
#path c (direct effect)
it2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_it2a1 <- "
#path c (direct effect)
it2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_it2a1 <- "
#path c (direct effect)
it2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
it2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_lte1 <- "
#path c (direct effect)
lte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_lte1 <- "
#path c (direct effect)
lte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_lte1 <- "
#path c (direct effect)
lte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_lte1 <- "
#path c (direct effect)
lte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_lte1 <- "
#path c (direct effect)
lte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_lte1 <- "
#path c (direct effect)
lte1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_ltm1 <- "
#path c (direct effect)
ltm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ltm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_ltm1 <- "
#path c (direct effect)
ltm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ltm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_ltm1 <- "
#path c (direct effect)
ltm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ltm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_ltm1 <- "
#path c (direct effect)
ltm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ltm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_ltm1 <- "
#path c (direct effect)
ltm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ltm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_ltm1 <- "
#path c (direct effect)
ltm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
ltm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_lts1 <- "
#path c (direct effect)
lts1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lts1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_lts1 <- "
#path c (direct effect)
lts1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lts1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_lts1 <- "
#path c (direct effect)
lts1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lts1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_lts1 <- "
#path c (direct effect)
lts1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lts1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_lts1 <- "
#path c (direct effect)
lts1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lts1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_lts1 <- "
#path c (direct effect)
lts1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lts1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_lt3a1 <- "
#path c (direct effect)
lt3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_lt3a1 <- "
#path c (direct effect)
lt3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_lt3a1 <- "
#path c (direct effect)
lt3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_lt3a1 <- "
#path c (direct effect)
lt3a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_lt2a1 <- "
#path c (direct effect)
lt2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_lt2a1 <- "
#path c (direct effect)
lt2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_lt2a1 <- "
#path c (direct effect)
lt2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_lt2a1 <- "
#path c (direct effect)
lt2a1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
lt2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsenum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsenum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsenum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsenum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsenum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsenum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseabcnum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseabcnum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsepsct1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsepsct1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsepsct1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsepsct1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsepsct1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsepsct1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsegrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsegrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexothergrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexothergrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexothergrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexothergrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexothergrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexothergrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexadvgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexadvgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexadvgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexadvgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexadvgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexadvgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexallgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexallgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexallgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexallgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexallgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexallgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseengm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseengm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseengm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseengm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseengm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcseengm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsescim1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsescim1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsescim1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsescim1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsescim1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsescim1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsematm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsematm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsematm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsematm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsematm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsematm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
pollution~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsecorem1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsecorem1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsecorem1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsecorem1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsecorem1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*EA3_Lee2018_no23andme_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*EA3_Lee2018_no23andme_corrected_FRCT1
# path b
pcexgcsecorem1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"IQ_Savage2018_corrected_FRCT1_pollution_gte1 <- "
#path c (direct effect)
gte1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
gte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_gte1 <- "
#path c (direct effect)
gte1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
gte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_gte1 <- "
#path c (direct effect)
gte1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
gte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_gte1 <- "
#path c (direct effect)
gte1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
gte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_gte1 <- "
#path c (direct effect)
gte1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
gte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_gte1 <- "
#path c (direct effect)
gte1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
gte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_gtm1 <- "
#path c (direct effect)
gtm1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
gtm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_gtm1 <- "
#path c (direct effect)
gtm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
gtm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_gtm1 <- "
#path c (direct effect)
gtm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
gtm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_gtm1 <- "
#path c (direct effect)
gtm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
gtm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_gtm1 <- "
#path c (direct effect)
gtm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
gtm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_gtm1 <- "
#path c (direct effect)
gtm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
gtm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_gta1 <- "
#path c (direct effect)
gta1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
gta1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_gta1 <- "
#path c (direct effect)
gta1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
gta1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_gta1 <- "
#path c (direct effect)
gta1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
gta1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_gta1 <- "
#path c (direct effect)
gta1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
gta1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_gta1 <- "
#path c (direct effect)
gta1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
gta1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_gta1 <- "
#path c (direct effect)
gta1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
gta1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_ite1 <- "
#path c (direct effect)
ite1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
ite1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_ite1 <- "
#path c (direct effect)
ite1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
ite1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_ite1 <- "
#path c (direct effect)
ite1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
ite1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_ite1 <- "
#path c (direct effect)
ite1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
ite1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_ite1 <- "
#path c (direct effect)
ite1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
ite1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_ite1 <- "
#path c (direct effect)
ite1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
ite1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_itm1 <- "
#path c (direct effect)
itm1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
itm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_itm1 <- "
#path c (direct effect)
itm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
itm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_itm1 <- "
#path c (direct effect)
itm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
itm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_itm1 <- "
#path c (direct effect)
itm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
itm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_itm1 <- "
#path c (direct effect)
itm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
itm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_itm1 <- "
#path c (direct effect)
itm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
itm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_its1 <- "
#path c (direct effect)
its1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
its1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_its1 <- "
#path c (direct effect)
its1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
its1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_its1 <- "
#path c (direct effect)
its1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
its1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_its1 <- "
#path c (direct effect)
its1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
its1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_its1 <- "
#path c (direct effect)
its1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
its1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_its1 <- "
#path c (direct effect)
its1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
its1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_it3a1 <- "
#path c (direct effect)
it3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
it3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_it3a1 <- "
#path c (direct effect)
it3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
it3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_it3a1 <- "
#path c (direct effect)
it3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
it3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_it3a1 <- "
#path c (direct effect)
it3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
it3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_it3a1 <- "
#path c (direct effect)
it3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
it3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_it3a1 <- "
#path c (direct effect)
it3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
it3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_it2a1 <- "
#path c (direct effect)
it2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
it2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_it2a1 <- "
#path c (direct effect)
it2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
it2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_it2a1 <- "
#path c (direct effect)
it2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
it2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_it2a1 <- "
#path c (direct effect)
it2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
it2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_it2a1 <- "
#path c (direct effect)
it2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
it2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_it2a1 <- "
#path c (direct effect)
it2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
it2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_lte1 <- "
#path c (direct effect)
lte1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
lte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_lte1 <- "
#path c (direct effect)
lte1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
lte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_lte1 <- "
#path c (direct effect)
lte1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
lte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_lte1 <- "
#path c (direct effect)
lte1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
lte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_lte1 <- "
#path c (direct effect)
lte1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
lte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_lte1 <- "
#path c (direct effect)
lte1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
lte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_ltm1 <- "
#path c (direct effect)
ltm1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
ltm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_ltm1 <- "
#path c (direct effect)
ltm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
ltm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_ltm1 <- "
#path c (direct effect)
ltm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
ltm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_ltm1 <- "
#path c (direct effect)
ltm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
ltm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_ltm1 <- "
#path c (direct effect)
ltm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
ltm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_ltm1 <- "
#path c (direct effect)
ltm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
ltm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_lts1 <- "
#path c (direct effect)
lts1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
lts1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_lts1 <- "
#path c (direct effect)
lts1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
lts1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_lts1 <- "
#path c (direct effect)
lts1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
lts1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_lts1 <- "
#path c (direct effect)
lts1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
lts1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_lts1 <- "
#path c (direct effect)
lts1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
lts1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_lts1 <- "
#path c (direct effect)
lts1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
lts1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_lt3a1 <- "
#path c (direct effect)
lt3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
lt3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
lt3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
lt3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_lt3a1 <- "
#path c (direct effect)
lt3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
lt3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_lt3a1 <- "
#path c (direct effect)
lt3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
lt3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_lt3a1 <- "
#path c (direct effect)
lt3a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
lt3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_lt2a1 <- "
#path c (direct effect)
lt2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
lt2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
lt2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
lt2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_lt2a1 <- "
#path c (direct effect)
lt2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
lt2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_lt2a1 <- "
#path c (direct effect)
lt2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
lt2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_lt2a1 <- "
#path c (direct effect)
lt2a1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
lt2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsenum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsenum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsenum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsenum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsenum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsenum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseabcnum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseabcnum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsepsct1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsepsct1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsepsct1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsepsct1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsepsct1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsepsct1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsegrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsegrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexothergrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexothergrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexothergrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexothergrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexothergrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexothergrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexadvgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexadvgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexadvgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexadvgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexadvgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexadvgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexallgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexallgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexallgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexallgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexallgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexallgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseengm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseengm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseengm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseengm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseengm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcseengm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsescim1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsescim1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsescim1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsescim1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsescim1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsescim1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsematm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsematm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsematm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsematm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsematm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsematm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*IQ_Savage2018_corrected_FRCT1
# path a
pollution~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsecorem1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_occupancyrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsecorem1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_healthrating~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsecorem1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_householdsize~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsecorem1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_quality_populinhouseholds~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsecorem1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*IQ_Savage2018_corrected_FRCT1
# path a
neighbourhood_economy_qualification~a*IQ_Savage2018_corrected_FRCT1
# path b
pcexgcsecorem1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"c_chol_cog_noncog_corrected_FRC_1_pollution_gte1 <- "
#path c (direct effect)
gte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gte1 <- "
#path c (direct effect)
gte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_gte1 <- "
#path c (direct effect)
gte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_gte1 <- "
#path c (direct effect)
gte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gte1 <- "
#path c (direct effect)
gte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_gte1 <- "
#path c (direct effect)
gte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_gtm1 <- "
#path c (direct effect)
gtm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gtm1 <- "
#path c (direct effect)
gtm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_gtm1 <- "
#path c (direct effect)
gtm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_gtm1 <- "
#path c (direct effect)
gtm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gtm1 <- "
#path c (direct effect)
gtm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_gtm1 <- "
#path c (direct effect)
gtm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_gta1 <- "
#path c (direct effect)
gta1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gta1 <- "
#path c (direct effect)
gta1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_gta1 <- "
#path c (direct effect)
gta1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_gta1 <- "
#path c (direct effect)
gta1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gta1 <- "
#path c (direct effect)
gta1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_gta1 <- "
#path c (direct effect)
gta1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_ite1 <- "
#path c (direct effect)
ite1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_ite1 <- "
#path c (direct effect)
ite1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_ite1 <- "
#path c (direct effect)
ite1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_ite1 <- "
#path c (direct effect)
ite1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_ite1 <- "
#path c (direct effect)
ite1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_ite1 <- "
#path c (direct effect)
ite1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_itm1 <- "
#path c (direct effect)
itm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_itm1 <- "
#path c (direct effect)
itm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_itm1 <- "
#path c (direct effect)
itm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_itm1 <- "
#path c (direct effect)
itm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_itm1 <- "
#path c (direct effect)
itm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_itm1 <- "
#path c (direct effect)
itm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_its1 <- "
#path c (direct effect)
its1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_its1 <- "
#path c (direct effect)
its1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_its1 <- "
#path c (direct effect)
its1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_its1 <- "
#path c (direct effect)
its1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_its1 <- "
#path c (direct effect)
its1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_its1 <- "
#path c (direct effect)
its1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_it3a1 <- "
#path c (direct effect)
it3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_it3a1 <- "
#path c (direct effect)
it3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_it3a1 <- "
#path c (direct effect)
it3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_it3a1 <- "
#path c (direct effect)
it3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_it3a1 <- "
#path c (direct effect)
it3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_it3a1 <- "
#path c (direct effect)
it3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_it2a1 <- "
#path c (direct effect)
it2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_it2a1 <- "
#path c (direct effect)
it2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_it2a1 <- "
#path c (direct effect)
it2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_it2a1 <- "
#path c (direct effect)
it2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_it2a1 <- "
#path c (direct effect)
it2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_it2a1 <- "
#path c (direct effect)
it2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_lte1 <- "
#path c (direct effect)
lte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lte1 <- "
#path c (direct effect)
lte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_lte1 <- "
#path c (direct effect)
lte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_lte1 <- "
#path c (direct effect)
lte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lte1 <- "
#path c (direct effect)
lte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_lte1 <- "
#path c (direct effect)
lte1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_ltm1 <- "
#path c (direct effect)
ltm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_ltm1 <- "
#path c (direct effect)
ltm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_ltm1 <- "
#path c (direct effect)
ltm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_ltm1 <- "
#path c (direct effect)
ltm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_ltm1 <- "
#path c (direct effect)
ltm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_ltm1 <- "
#path c (direct effect)
ltm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_lts1 <- "
#path c (direct effect)
lts1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lts1 <- "
#path c (direct effect)
lts1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_lts1 <- "
#path c (direct effect)
lts1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_lts1 <- "
#path c (direct effect)
lts1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lts1 <- "
#path c (direct effect)
lts1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_lts1 <- "
#path c (direct effect)
lts1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_lt3a1 <- "
#path c (direct effect)
lt3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_lt3a1 <- "
#path c (direct effect)
lt3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lt3a1 <- "
#path c (direct effect)
lt3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_lt3a1 <- "
#path c (direct effect)
lt3a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_lt2a1 <- "
#path c (direct effect)
lt2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_lt2a1 <- "
#path c (direct effect)
lt2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lt2a1 <- "
#path c (direct effect)
lt2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_lt2a1 <- "
#path c (direct effect)
lt2a1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*c_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*c_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"nc_chol_cog_noncog_corrected_FRC_1_pollution_gte1 <- "
#path c (direct effect)
gte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gte1 <- "
#path c (direct effect)
gte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_gte1 <- "
#path c (direct effect)
gte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_gte1 <- "
#path c (direct effect)
gte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gte1 <- "
#path c (direct effect)
gte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_gte1 <- "
#path c (direct effect)
gte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_gtm1 <- "
#path c (direct effect)
gtm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gtm1 <- "
#path c (direct effect)
gtm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_gtm1 <- "
#path c (direct effect)
gtm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_gtm1 <- "
#path c (direct effect)
gtm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gtm1 <- "
#path c (direct effect)
gtm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_gtm1 <- "
#path c (direct effect)
gtm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_gta1 <- "
#path c (direct effect)
gta1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gta1 <- "
#path c (direct effect)
gta1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_gta1 <- "
#path c (direct effect)
gta1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_gta1 <- "
#path c (direct effect)
gta1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gta1 <- "
#path c (direct effect)
gta1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_gta1 <- "
#path c (direct effect)
gta1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
gta1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_ite1 <- "
#path c (direct effect)
ite1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_ite1 <- "
#path c (direct effect)
ite1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_ite1 <- "
#path c (direct effect)
ite1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_ite1 <- "
#path c (direct effect)
ite1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_ite1 <- "
#path c (direct effect)
ite1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_ite1 <- "
#path c (direct effect)
ite1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ite1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_itm1 <- "
#path c (direct effect)
itm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_itm1 <- "
#path c (direct effect)
itm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_itm1 <- "
#path c (direct effect)
itm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_itm1 <- "
#path c (direct effect)
itm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_itm1 <- "
#path c (direct effect)
itm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_itm1 <- "
#path c (direct effect)
itm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
itm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_its1 <- "
#path c (direct effect)
its1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_its1 <- "
#path c (direct effect)
its1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_its1 <- "
#path c (direct effect)
its1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_its1 <- "
#path c (direct effect)
its1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_its1 <- "
#path c (direct effect)
its1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_its1 <- "
#path c (direct effect)
its1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
its1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_it3a1 <- "
#path c (direct effect)
it3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_it3a1 <- "
#path c (direct effect)
it3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_it3a1 <- "
#path c (direct effect)
it3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_it3a1 <- "
#path c (direct effect)
it3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_it3a1 <- "
#path c (direct effect)
it3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_it3a1 <- "
#path c (direct effect)
it3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_it2a1 <- "
#path c (direct effect)
it2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_it2a1 <- "
#path c (direct effect)
it2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_it2a1 <- "
#path c (direct effect)
it2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_it2a1 <- "
#path c (direct effect)
it2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_it2a1 <- "
#path c (direct effect)
it2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_it2a1 <- "
#path c (direct effect)
it2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_lte1 <- "
#path c (direct effect)
lte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lte1 <- "
#path c (direct effect)
lte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_lte1 <- "
#path c (direct effect)
lte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_lte1 <- "
#path c (direct effect)
lte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lte1 <- "
#path c (direct effect)
lte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_lte1 <- "
#path c (direct effect)
lte1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_ltm1 <- "
#path c (direct effect)
ltm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_ltm1 <- "
#path c (direct effect)
ltm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_ltm1 <- "
#path c (direct effect)
ltm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_ltm1 <- "
#path c (direct effect)
ltm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_ltm1 <- "
#path c (direct effect)
ltm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_ltm1 <- "
#path c (direct effect)
ltm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_lts1 <- "
#path c (direct effect)
lts1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lts1 <- "
#path c (direct effect)
lts1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_lts1 <- "
#path c (direct effect)
lts1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_lts1 <- "
#path c (direct effect)
lts1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lts1 <- "
#path c (direct effect)
lts1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_lts1 <- "
#path c (direct effect)
lts1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lts1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_lt3a1 <- "
#path c (direct effect)
lt3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_lt3a1 <- "
#path c (direct effect)
lt3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lt3a1 <- "
#path c (direct effect)
lt3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_lt3a1 <- "
#path c (direct effect)
lt3a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_lt2a1 <- "
#path c (direct effect)
lt2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_lt2a1 <- "
#path c (direct effect)
lt2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lt2a1 <- "
#path c (direct effect)
lt2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_lt2a1 <- "
#path c (direct effect)
lt2a1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
pollution~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*nc_chol_cog_noncog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*nc_chol_cog_noncog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"Cog_corrected_FRC_1_pollution_gte1 <- "
#path c (direct effect)
gte1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
gte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gte1 <- "
#path c (direct effect)
gte1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_gte1 <- "
#path c (direct effect)
gte1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_gte1 <- "
#path c (direct effect)
gte1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gte1 <- "
#path c (direct effect)
gte1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_gte1 <- "
#path c (direct effect)
gte1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
gte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_gtm1 <- "
#path c (direct effect)
gtm1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
gtm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gtm1 <- "
#path c (direct effect)
gtm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_gtm1 <- "
#path c (direct effect)
gtm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_gtm1 <- "
#path c (direct effect)
gtm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gtm1 <- "
#path c (direct effect)
gtm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_gtm1 <- "
#path c (direct effect)
gtm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_gta1 <- "
#path c (direct effect)
gta1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
gta1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gta1 <- "
#path c (direct effect)
gta1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_gta1 <- "
#path c (direct effect)
gta1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_gta1 <- "
#path c (direct effect)
gta1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gta1 <- "
#path c (direct effect)
gta1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_gta1 <- "
#path c (direct effect)
gta1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
gta1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_ite1 <- "
#path c (direct effect)
ite1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
ite1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_ite1 <- "
#path c (direct effect)
ite1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_ite1 <- "
#path c (direct effect)
ite1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_ite1 <- "
#path c (direct effect)
ite1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_ite1 <- "
#path c (direct effect)
ite1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_ite1 <- "
#path c (direct effect)
ite1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
ite1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_itm1 <- "
#path c (direct effect)
itm1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
itm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_itm1 <- "
#path c (direct effect)
itm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_itm1 <- "
#path c (direct effect)
itm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_itm1 <- "
#path c (direct effect)
itm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_itm1 <- "
#path c (direct effect)
itm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_itm1 <- "
#path c (direct effect)
itm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
itm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_its1 <- "
#path c (direct effect)
its1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
its1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_its1 <- "
#path c (direct effect)
its1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_its1 <- "
#path c (direct effect)
its1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_its1 <- "
#path c (direct effect)
its1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_its1 <- "
#path c (direct effect)
its1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_its1 <- "
#path c (direct effect)
its1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
its1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_it3a1 <- "
#path c (direct effect)
it3a1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
it3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_it3a1 <- "
#path c (direct effect)
it3a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_it3a1 <- "
#path c (direct effect)
it3a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_it3a1 <- "
#path c (direct effect)
it3a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_it3a1 <- "
#path c (direct effect)
it3a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_it3a1 <- "
#path c (direct effect)
it3a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_it2a1 <- "
#path c (direct effect)
it2a1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
it2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_it2a1 <- "
#path c (direct effect)
it2a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_it2a1 <- "
#path c (direct effect)
it2a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_it2a1 <- "
#path c (direct effect)
it2a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_it2a1 <- "
#path c (direct effect)
it2a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_it2a1 <- "
#path c (direct effect)
it2a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_lte1 <- "
#path c (direct effect)
lte1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
lte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lte1 <- "
#path c (direct effect)
lte1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_lte1 <- "
#path c (direct effect)
lte1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_lte1 <- "
#path c (direct effect)
lte1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lte1 <- "
#path c (direct effect)
lte1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_lte1 <- "
#path c (direct effect)
lte1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
lte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_ltm1 <- "
#path c (direct effect)
ltm1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
ltm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_ltm1 <- "
#path c (direct effect)
ltm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_ltm1 <- "
#path c (direct effect)
ltm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_ltm1 <- "
#path c (direct effect)
ltm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_ltm1 <- "
#path c (direct effect)
ltm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_ltm1 <- "
#path c (direct effect)
ltm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_lts1 <- "
#path c (direct effect)
lts1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
lts1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lts1 <- "
#path c (direct effect)
lts1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_lts1 <- "
#path c (direct effect)
lts1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_lts1 <- "
#path c (direct effect)
lts1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lts1 <- "
#path c (direct effect)
lts1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_lts1 <- "
#path c (direct effect)
lts1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
lts1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_lt3a1 <- "
#path c (direct effect)
lt3a1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
lt3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_lt3a1 <- "
#path c (direct effect)
lt3a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lt3a1 <- "
#path c (direct effect)
lt3a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_lt3a1 <- "
#path c (direct effect)
lt3a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_lt2a1 <- "
#path c (direct effect)
lt2a1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
lt2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_lt2a1 <- "
#path c (direct effect)
lt2a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lt2a1 <- "
#path c (direct effect)
lt2a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_lt2a1 <- "
#path c (direct effect)
lt2a1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexgcsenum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexgcsepsct1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexothergrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexadvgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexallgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexgcseengm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexgcsescim1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexgcsematm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_pollution_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*Cog_corrected_FRC_1
# path a
pollution~a*Cog_corrected_FRC_1
# path b
pcexgcsecorem1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*Cog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*Cog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*Cog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*Cog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*Cog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*Cog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*Cog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"NonCog_corrected_FRC_1_pollution_gte1 <- "
#path c (direct effect)
gte1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
gte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gte1 <- "
#path c (direct effect)
gte1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_gte1 <- "
#path c (direct effect)
gte1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_gte1 <- "
#path c (direct effect)
gte1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gte1 <- "
#path c (direct effect)
gte1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
gte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_gte1 <- "
#path c (direct effect)
gte1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
gte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_gtm1 <- "
#path c (direct effect)
gtm1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
gtm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gtm1 <- "
#path c (direct effect)
gtm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_gtm1 <- "
#path c (direct effect)
gtm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_gtm1 <- "
#path c (direct effect)
gtm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gtm1 <- "
#path c (direct effect)
gtm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_gtm1 <- "
#path c (direct effect)
gtm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
gtm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_gta1 <- "
#path c (direct effect)
gta1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
gta1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_gta1 <- "
#path c (direct effect)
gta1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_gta1 <- "
#path c (direct effect)
gta1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_gta1 <- "
#path c (direct effect)
gta1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_gta1 <- "
#path c (direct effect)
gta1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
gta1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_gta1 <- "
#path c (direct effect)
gta1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
gta1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_ite1 <- "
#path c (direct effect)
ite1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
ite1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_ite1 <- "
#path c (direct effect)
ite1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_ite1 <- "
#path c (direct effect)
ite1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_ite1 <- "
#path c (direct effect)
ite1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_ite1 <- "
#path c (direct effect)
ite1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
ite1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_ite1 <- "
#path c (direct effect)
ite1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
ite1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_itm1 <- "
#path c (direct effect)
itm1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
itm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_itm1 <- "
#path c (direct effect)
itm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_itm1 <- "
#path c (direct effect)
itm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_itm1 <- "
#path c (direct effect)
itm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_itm1 <- "
#path c (direct effect)
itm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
itm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_itm1 <- "
#path c (direct effect)
itm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
itm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_its1 <- "
#path c (direct effect)
its1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
its1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_its1 <- "
#path c (direct effect)
its1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_its1 <- "
#path c (direct effect)
its1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_its1 <- "
#path c (direct effect)
its1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_its1 <- "
#path c (direct effect)
its1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
its1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_its1 <- "
#path c (direct effect)
its1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
its1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_it3a1 <- "
#path c (direct effect)
it3a1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
it3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_it3a1 <- "
#path c (direct effect)
it3a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_it3a1 <- "
#path c (direct effect)
it3a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_it3a1 <- "
#path c (direct effect)
it3a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_it3a1 <- "
#path c (direct effect)
it3a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_it3a1 <- "
#path c (direct effect)
it3a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
it3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_it2a1 <- "
#path c (direct effect)
it2a1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
it2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_it2a1 <- "
#path c (direct effect)
it2a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_it2a1 <- "
#path c (direct effect)
it2a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_it2a1 <- "
#path c (direct effect)
it2a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_it2a1 <- "
#path c (direct effect)
it2a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_it2a1 <- "
#path c (direct effect)
it2a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
it2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_lte1 <- "
#path c (direct effect)
lte1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
lte1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lte1 <- "
#path c (direct effect)
lte1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_lte1 <- "
#path c (direct effect)
lte1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_lte1 <- "
#path c (direct effect)
lte1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lte1 <- "
#path c (direct effect)
lte1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
lte1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_lte1 <- "
#path c (direct effect)
lte1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
lte1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_ltm1 <- "
#path c (direct effect)
ltm1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
ltm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_ltm1 <- "
#path c (direct effect)
ltm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_ltm1 <- "
#path c (direct effect)
ltm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_ltm1 <- "
#path c (direct effect)
ltm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_ltm1 <- "
#path c (direct effect)
ltm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_ltm1 <- "
#path c (direct effect)
ltm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
ltm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_lts1 <- "
#path c (direct effect)
lts1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
lts1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lts1 <- "
#path c (direct effect)
lts1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_lts1 <- "
#path c (direct effect)
lts1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_lts1 <- "
#path c (direct effect)
lts1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lts1 <- "
#path c (direct effect)
lts1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
lts1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_lts1 <- "
#path c (direct effect)
lts1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
lts1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_lt3a1 <- "
#path c (direct effect)
lt3a1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
lt3a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_lt3a1 <- "
#path c (direct effect)
lt3a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_lt3a1 <- "
#path c (direct effect)
lt3a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lt3a1 <- "
#path c (direct effect)
lt3a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_lt3a1 <- "
#path c (direct effect)
lt3a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
lt3a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_lt2a1 <- "
#path c (direct effect)
lt2a1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
lt2a1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_lt2a1 <- "
#path c (direct effect)
lt2a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_lt2a1 <- "
#path c (direct effect)
lt2a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_lt2a1 <- "
#path c (direct effect)
lt2a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_lt2a1 <- "
#path c (direct effect)
lt2a1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
lt2a1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexgcsenum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1 <- "
#path c (direct effect)
pcexgcsenum1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexgcsenum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1 <- "
#path c (direct effect)
pcexgcseabcnum1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexgcseabcnum1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexgcsepsct1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1 <- "
#path c (direct effect)
pcexgcsepsct1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexgcsepsct1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1 <- "
#path c (direct effect)
pcexgcsegrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexgcsegrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexothergrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1 <- "
#path c (direct effect)
pcexothergrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexothergrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexadvgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1 <- "
#path c (direct effect)
pcexadvgrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexadvgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexallgrdm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1 <- "
#path c (direct effect)
pcexallgrdm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexallgrdm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexgcseengm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1 <- "
#path c (direct effect)
pcexgcseengm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexgcseengm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexgcsescim1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1 <- "
#path c (direct effect)
pcexgcsescim1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexgcsescim1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexgcsematm1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1 <- "
#path c (direct effect)
pcexgcsematm1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexgcsematm1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_pollution_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*NonCog_corrected_FRC_1
# path a
pollution~a*NonCog_corrected_FRC_1
# path b
pcexgcsecorem1~b*pollution
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_occupancyrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_occupancyrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_healthrating~a*NonCog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_healthrating
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_householdsize~a*NonCog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_householdsize
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_quality_populinhouseholds~a*NonCog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_quality_populinhouseholds
indirect := a*b
direct := c
total := c + (a*b)
"
NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1 <- "
#path c (direct effect)
pcexgcsecorem1~c*NonCog_corrected_FRC_1
# path a
neighbourhood_economy_qualification~a*NonCog_corrected_FRC_1
# path b
pcexgcsecorem1~b*neighbourhood_economy_qualification
indirect := a*b
direct := c
total := c + (a*b)
"### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsenum1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1
#mediate_plot(pcexgcsenum1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsenum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsenum1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsenum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsenum1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsenum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsenum1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsenum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsenum1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsenum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsenum1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsenum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseabcnum1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcseabcnum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseabcnum1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseabcnum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseabcnum1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseabcnum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseabcnum1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseabcnum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseabcnum1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseabcnum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseabcnum1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseabcnum1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsepsct1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsepsct1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsepsct1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsepsct1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsepsct1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsepsct1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsepsct1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsepsct1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsepsct1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsepsct1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsepsct1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsepsct1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsegrdm1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsegrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsegrdm1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsegrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsegrdm1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsegrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsegrdm1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsegrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsegrdm1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsegrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsegrdm1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsegrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexothergrdm1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1
#mediate_plot(pcexothergrdm1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexothergrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexothergrdm1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexothergrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexothergrdm1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexothergrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexothergrdm1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexothergrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexothergrdm1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexothergrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexothergrdm1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexothergrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexadvgrdm1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexadvgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexadvgrdm1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexadvgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexadvgrdm1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexadvgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexadvgrdm1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexadvgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexadvgrdm1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexadvgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexadvgrdm1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexadvgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexallgrdm1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1
#mediate_plot(pcexallgrdm1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexallgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexallgrdm1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexallgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexallgrdm1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexallgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexallgrdm1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexallgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexallgrdm1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexallgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexallgrdm1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexallgrdm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseengm1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1
#mediate_plot(pcexgcseengm1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcseengm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseengm1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseengm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseengm1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseengm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseengm1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseengm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseengm1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseengm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcseengm1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseengm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsescim1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1
#mediate_plot(pcexgcsescim1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsescim1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsescim1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsescim1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsescim1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsescim1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsescim1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsescim1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsescim1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsescim1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsescim1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsescim1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsematm1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1
#mediate_plot(pcexgcsematm1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsematm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsematm1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsematm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsematm1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsematm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsematm1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsematm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsematm1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsematm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsematm1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsematm1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsecorem1 M: pollution
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1<- dat[dat$pollution < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1<- dat[dat$pollution > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~pollution+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsecorem1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsecorem1 M: neighbourhood_quality_occupancyrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_occupancyrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsecorem1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsecorem1 M: neighbourhood_quality_healthrating
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_healthrating+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsecorem1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsecorem1 M: neighbourhood_quality_householdsize
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_householdsize+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsecorem1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsecorem1 M: neighbourhood_quality_populinhouseholds
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_populinhouseholds+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsecorem1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,Model_fit)
### GPS: EA3_Lee2018_no23andme_corrected_FRCT1 EA: pcexgcsecorem1 M: neighbourhood_economy_qualification
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification < 4,]
datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- sem(EA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1,dat = datEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1)
#summary(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- parameterEstimates(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1, output = "data.frame")
#output_fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_economy_qualification+EA3_Lee2018_no23andme_corrected_FRCT1,dat=dat)
#semPaths(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1")
Model_est <- broom::tidy(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="EA3_Lee2018_no23andme_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsecorem1",Model_est)
ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1)
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- cbind(ParamEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1,Model_fit)### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsenum1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1
#mediate_plot(pcexgcsenum1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsenum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsenum1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsenum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsenum1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsenum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsenum1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsenum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsenum1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsenum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsenum1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsenum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseabcnum1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcseabcnum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseabcnum1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseabcnum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseabcnum1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseabcnum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseabcnum1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseabcnum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseabcnum1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseabcnum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseabcnum1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseabcnum1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsepsct1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsepsct1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsepsct1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsepsct1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsepsct1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsepsct1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsepsct1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsepsct1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsepsct1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsepsct1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsepsct1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsepsct1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsegrdm1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsegrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsegrdm1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsegrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsegrdm1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsegrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsegrdm1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsegrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsegrdm1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsegrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsegrdm1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsegrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexothergrdm1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1
#mediate_plot(pcexothergrdm1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexothergrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexothergrdm1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexothergrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexothergrdm1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexothergrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexothergrdm1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexothergrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexothergrdm1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexothergrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexothergrdm1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexothergrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexadvgrdm1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexadvgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexadvgrdm1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexadvgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexadvgrdm1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexadvgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexadvgrdm1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexadvgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexadvgrdm1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexadvgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexadvgrdm1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexadvgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexallgrdm1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1
#mediate_plot(pcexallgrdm1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexallgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexallgrdm1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexallgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexallgrdm1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexallgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexallgrdm1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexallgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexallgrdm1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexallgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexallgrdm1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexallgrdm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseengm1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1
#mediate_plot(pcexgcseengm1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcseengm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseengm1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseengm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseengm1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseengm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseengm1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseengm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseengm1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseengm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcseengm1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseengm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsescim1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1
#mediate_plot(pcexgcsescim1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsescim1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsescim1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsescim1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsescim1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsescim1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsescim1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsescim1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsescim1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsescim1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsescim1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsescim1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsematm1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1
#mediate_plot(pcexgcsematm1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsematm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsematm1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsematm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsematm1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsematm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsematm1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsematm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsematm1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsematm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsematm1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsematm1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsecorem1 M: pollution
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1<- dat[dat$pollution < 4,]
datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1<- dat[dat$pollution > -4,]
fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1<- sem(IQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1,dat = datIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1)
#summary(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~pollution+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="pollution",EduAch="pcexgcsecorem1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1)
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsecorem1 M: neighbourhood_quality_occupancyrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_occupancyrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsecorem1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsecorem1 M: neighbourhood_quality_healthrating
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_healthrating+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsecorem1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsecorem1 M: neighbourhood_quality_householdsize
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_householdsize+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsecorem1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsecorem1 M: neighbourhood_quality_populinhouseholds
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_populinhouseholds+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsecorem1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,Model_fit)
### GPS: IQ_Savage2018_corrected_FRCT1 EA: pcexgcsecorem1 M: neighbourhood_economy_qualification
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification < 4,]
datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- sem(IQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1,dat = datIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1)
#summary(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- parameterEstimates(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1, output = "data.frame")
#output_fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_economy_qualification+IQ_Savage2018_corrected_FRCT1,dat=dat)
#semPaths(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1")
Model_est <- broom::tidy(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="IQ_Savage2018_corrected_FRCT1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsecorem1",Model_est)
ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1)
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1<- cbind(ParamIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1,Model_fit)### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1
#mediate_plot(pcexgcsenum1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsenum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsenum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsenum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsenum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsenum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsenum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcseabcnum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseabcnum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseabcnum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseabcnum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseabcnum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseabcnum1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsepsct1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsepsct1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsepsct1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsepsct1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsepsct1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsepsct1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsegrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsegrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsegrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsegrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsegrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsegrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1
#mediate_plot(pcexothergrdm1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexothergrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexothergrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexothergrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexothergrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexothergrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexothergrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexadvgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexadvgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexadvgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexadvgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexadvgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexadvgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1
#mediate_plot(pcexallgrdm1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexallgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexallgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexallgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexallgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexallgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexallgrdm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1
#mediate_plot(pcexgcseengm1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcseengm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseengm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseengm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseengm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseengm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseengm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1
#mediate_plot(pcexgcsescim1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsescim1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsescim1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsescim1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsescim1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsescim1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsescim1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1
#mediate_plot(pcexgcsematm1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsematm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsematm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsematm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsematm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsematm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsematm1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: pollution
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pollution < 4,]
datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pollution > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- sem(c_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1,dat = datc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~pollution+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsecorem1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_occupancyrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_occupancyrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsecorem1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_healthrating
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_healthrating+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsecorem1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_householdsize
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_householdsize+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsecorem1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_populinhouseholds
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_populinhouseholds+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsecorem1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,Model_fit)
### GPS: c_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_economy_qualification
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification < 4,]
datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- sem(c_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,dat = datc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1)
#summary(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- parameterEstimates(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, output = "data.frame")
#output_fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_economy_qualification+c_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1")
Model_est <- broom::tidy(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="c_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsecorem1",Model_est)
Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1)
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- cbind(Paramc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,Model_fit)### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1
#mediate_plot(pcexgcsenum1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsenum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsenum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsenum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsenum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsenum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsenum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcseabcnum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseabcnum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseabcnum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseabcnum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseabcnum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseabcnum1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsepsct1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsepsct1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsepsct1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsepsct1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsepsct1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsepsct1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsegrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsegrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsegrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsegrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsegrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsegrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1
#mediate_plot(pcexothergrdm1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexothergrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexothergrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexothergrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexothergrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexothergrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexothergrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexadvgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexadvgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexadvgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexadvgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexadvgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexadvgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1
#mediate_plot(pcexallgrdm1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexallgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexallgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexallgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexallgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexallgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexallgrdm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1
#mediate_plot(pcexgcseengm1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcseengm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseengm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseengm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseengm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseengm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseengm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1
#mediate_plot(pcexgcsescim1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsescim1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsescim1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsescim1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsescim1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsescim1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsescim1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1
#mediate_plot(pcexgcsematm1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsematm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsematm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsematm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsematm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsematm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsematm1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: pollution
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pollution < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pollution > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- sem(nc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1,dat = datnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~pollution+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsecorem1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_occupancyrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_occupancyrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsecorem1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_healthrating
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_healthrating+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsecorem1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_householdsize
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_householdsize+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsecorem1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_populinhouseholds
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_populinhouseholds+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsecorem1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,Model_fit)
### GPS: nc_chol_cog_noncog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_economy_qualification
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification < 4,]
datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- sem(nc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,dat = datnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1)
#summary(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- parameterEstimates(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, output = "data.frame")
#output_fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_economy_qualification+nc_chol_cog_noncog_corrected_FRC_1,dat=dat)
#semPaths(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1")
Model_est <- broom::tidy(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="nc_chol_cog_noncog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsecorem1",Model_est)
Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1)
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- cbind(Paramnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,Model_fit)### GPS: Cog_corrected_FRC_1 EA: pcexgcsenum1 M: pollution
datCog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datCog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexgcsenum1<- sem(Cog_corrected_FRC_1_pollution_pcexgcsenum1,dat = datCog_corrected_FRC_1_pollution_pcexgcsenum1)
#summary(fitCog_corrected_FRC_1_pollution_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexgcsenum1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexgcsenum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexgcsenum1
#mediate_plot(pcexgcsenum1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexgcsenum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsenum1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexgcsenum1)
ParamfitCog_corrected_FRC_1_pollution_pcexgcsenum1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexgcsenum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsenum1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsenum1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsenum1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsenum1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsenum1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseabcnum1 M: pollution
datCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- sem(Cog_corrected_FRC_1_pollution_pcexgcseabcnum1,dat = datCog_corrected_FRC_1_pollution_pcexgcseabcnum1)
#summary(fitCog_corrected_FRC_1_pollution_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexgcseabcnum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexgcseabcnum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcseabcnum1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexgcseabcnum1)
ParamfitCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexgcseabcnum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseabcnum1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseabcnum1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseabcnum1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseabcnum1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseabcnum1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsepsct1 M: pollution
datCog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datCog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexgcsepsct1<- sem(Cog_corrected_FRC_1_pollution_pcexgcsepsct1,dat = datCog_corrected_FRC_1_pollution_pcexgcsepsct1)
#summary(fitCog_corrected_FRC_1_pollution_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexgcsepsct1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexgcsepsct1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexgcsepsct1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsepsct1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexgcsepsct1)
ParamfitCog_corrected_FRC_1_pollution_pcexgcsepsct1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexgcsepsct1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsepsct1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsepsct1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsepsct1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsepsct1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsepsct1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsegrdm1 M: pollution
datCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- sem(Cog_corrected_FRC_1_pollution_pcexgcsegrdm1,dat = datCog_corrected_FRC_1_pollution_pcexgcsegrdm1)
#summary(fitCog_corrected_FRC_1_pollution_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexgcsegrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexgcsegrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsegrdm1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexgcsegrdm1)
ParamfitCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexgcsegrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsegrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsegrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsegrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsegrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsegrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexothergrdm1 M: pollution
datCog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datCog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datCog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexothergrdm1<- sem(Cog_corrected_FRC_1_pollution_pcexothergrdm1,dat = datCog_corrected_FRC_1_pollution_pcexothergrdm1)
#summary(fitCog_corrected_FRC_1_pollution_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexothergrdm1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexothergrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexothergrdm1
#mediate_plot(pcexothergrdm1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexothergrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexothergrdm1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexothergrdm1)
ParamfitCog_corrected_FRC_1_pollution_pcexothergrdm1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexothergrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexothergrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexothergrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexothergrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexothergrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexothergrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexadvgrdm1 M: pollution
datCog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datCog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datCog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexadvgrdm1<- sem(Cog_corrected_FRC_1_pollution_pcexadvgrdm1,dat = datCog_corrected_FRC_1_pollution_pcexadvgrdm1)
#summary(fitCog_corrected_FRC_1_pollution_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexadvgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexadvgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexadvgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexadvgrdm1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexadvgrdm1)
ParamfitCog_corrected_FRC_1_pollution_pcexadvgrdm1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexadvgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexadvgrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexadvgrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexadvgrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexadvgrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexadvgrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexallgrdm1 M: pollution
datCog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datCog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datCog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexallgrdm1<- sem(Cog_corrected_FRC_1_pollution_pcexallgrdm1,dat = datCog_corrected_FRC_1_pollution_pcexallgrdm1)
#summary(fitCog_corrected_FRC_1_pollution_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexallgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexallgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexallgrdm1
#mediate_plot(pcexallgrdm1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexallgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexallgrdm1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexallgrdm1)
ParamfitCog_corrected_FRC_1_pollution_pcexallgrdm1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexallgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexallgrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexallgrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexallgrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexallgrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexallgrdm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseengm1 M: pollution
datCog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datCog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datCog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexgcseengm1<- sem(Cog_corrected_FRC_1_pollution_pcexgcseengm1,dat = datCog_corrected_FRC_1_pollution_pcexgcseengm1)
#summary(fitCog_corrected_FRC_1_pollution_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexgcseengm1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexgcseengm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexgcseengm1
#mediate_plot(pcexgcseengm1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexgcseengm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcseengm1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexgcseengm1)
ParamfitCog_corrected_FRC_1_pollution_pcexgcseengm1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexgcseengm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseengm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseengm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseengm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseengm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseengm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsescim1 M: pollution
datCog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datCog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexgcsescim1<- sem(Cog_corrected_FRC_1_pollution_pcexgcsescim1,dat = datCog_corrected_FRC_1_pollution_pcexgcsescim1)
#summary(fitCog_corrected_FRC_1_pollution_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexgcsescim1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexgcsescim1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexgcsescim1
#mediate_plot(pcexgcsescim1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexgcsescim1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsescim1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexgcsescim1)
ParamfitCog_corrected_FRC_1_pollution_pcexgcsescim1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexgcsescim1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsescim1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsescim1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsescim1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsescim1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsescim1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsematm1 M: pollution
datCog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datCog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexgcsematm1<- sem(Cog_corrected_FRC_1_pollution_pcexgcsematm1,dat = datCog_corrected_FRC_1_pollution_pcexgcsematm1)
#summary(fitCog_corrected_FRC_1_pollution_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexgcsematm1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexgcsematm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexgcsematm1
#mediate_plot(pcexgcsematm1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexgcsematm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsematm1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexgcsematm1)
ParamfitCog_corrected_FRC_1_pollution_pcexgcsematm1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexgcsematm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsematm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsematm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsematm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsematm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsematm1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsecorem1 M: pollution
datCog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datCog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pollution < 4,]
datCog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pollution > -4,]
fitCog_corrected_FRC_1_pollution_pcexgcsecorem1<- sem(Cog_corrected_FRC_1_pollution_pcexgcsecorem1,dat = datCog_corrected_FRC_1_pollution_pcexgcsecorem1)
#summary(fitCog_corrected_FRC_1_pollution_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_pollution_pcexgcsecorem1<- parameterEstimates(fitCog_corrected_FRC_1_pollution_pcexgcsecorem1, output = "data.frame")
#output_fitCog_corrected_FRC_1_pollution_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~pollution+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_pollution_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_pollution_pcexgcsecorem1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_pollution_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsecorem1",Model_est)
ParamCog_corrected_FRC_1_pollution_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_pollution_pcexgcsecorem1)
ParamfitCog_corrected_FRC_1_pollution_pcexgcsecorem1<- cbind(ParamCog_corrected_FRC_1_pollution_pcexgcsecorem1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_occupancyrating
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,dat = datCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_occupancyrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsecorem1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_healthrating
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,dat = datCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_healthrating+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsecorem1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_householdsize
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,dat = datCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_householdsize+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsecorem1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_populinhouseholds
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- sem(Cog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,dat = datCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
#summary(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_populinhouseholds+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsecorem1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,Model_fit)
### GPS: Cog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_economy_qualification
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification < 4,]
datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- sem(Cog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,dat = datCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1)
#summary(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- parameterEstimates(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, output = "data.frame")
#output_fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_economy_qualification+Cog_corrected_FRC_1,dat=dat)
#semPaths(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1")
Model_est <- broom::tidy(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="Cog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsecorem1",Model_est)
ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1)
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- cbind(ParamCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,Model_fit)### GPS: NonCog_corrected_FRC_1 EA: pcexgcsenum1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsenum1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexgcsenum1<- sem(NonCog_corrected_FRC_1_pollution_pcexgcsenum1,dat = datNonCog_corrected_FRC_1_pollution_pcexgcsenum1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsenum1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexgcsenum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsenum1
#mediate_plot(pcexgcsenum1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexgcsenum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsenum1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexgcsenum1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsenum1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexgcsenum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsenum1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsenum1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsenum1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsenum1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsenum1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$pcexgcsenum1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1
#mediate_plot(pcexgcsenum1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsenum1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseabcnum1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- sem(NonCog_corrected_FRC_1_pollution_pcexgcseabcnum1,dat = datNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcseabcnum1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseabcnum1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseabcnum1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseabcnum1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseabcnum1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseabcnum1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$pcexgcseabcnum1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1
#mediate_plot(pcexgcseabcnum1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseabcnum1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsepsct1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsepsct1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1<- sem(NonCog_corrected_FRC_1_pollution_pcexgcsepsct1,dat = datNonCog_corrected_FRC_1_pollution_pcexgcsepsct1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsepsct1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexgcsepsct1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsepsct1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsepsct1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsepsct1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsepsct1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsepsct1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$pcexgcsepsct1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1
#mediate_plot(pcexgcsepsct1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsepsct1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsegrdm1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- sem(NonCog_corrected_FRC_1_pollution_pcexgcsegrdm1,dat = datNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsegrdm1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsegrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsegrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsegrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsegrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsegrdm1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$pcexgcsegrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1
#mediate_plot(pcexgcsegrdm1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsegrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexothergrdm1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexothergrdm1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexothergrdm1<- sem(NonCog_corrected_FRC_1_pollution_pcexothergrdm1,dat = datNonCog_corrected_FRC_1_pollution_pcexothergrdm1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexothergrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexothergrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexothergrdm1
#mediate_plot(pcexothergrdm1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexothergrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexothergrdm1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexothergrdm1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexothergrdm1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexothergrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexothergrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexothergrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexothergrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexothergrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexothergrdm1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$pcexothergrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1
#mediate_plot(pcexothergrdm1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexothergrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexadvgrdm1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexadvgrdm1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1<- sem(NonCog_corrected_FRC_1_pollution_pcexadvgrdm1,dat = datNonCog_corrected_FRC_1_pollution_pcexadvgrdm1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexadvgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexadvgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexadvgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexadvgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexadvgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexadvgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexadvgrdm1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$pcexadvgrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1
#mediate_plot(pcexadvgrdm1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexadvgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexallgrdm1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexallgrdm1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexallgrdm1<- sem(NonCog_corrected_FRC_1_pollution_pcexallgrdm1,dat = datNonCog_corrected_FRC_1_pollution_pcexallgrdm1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexallgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexallgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexallgrdm1
#mediate_plot(pcexallgrdm1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexallgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexallgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexallgrdm1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexallgrdm1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexallgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexallgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexallgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexallgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexallgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexallgrdm1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$pcexallgrdm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1
#mediate_plot(pcexallgrdm1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexallgrdm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseengm1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcseengm1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexgcseengm1<- sem(NonCog_corrected_FRC_1_pollution_pcexgcseengm1,dat = datNonCog_corrected_FRC_1_pollution_pcexgcseengm1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcseengm1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexgcseengm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcseengm1
#mediate_plot(pcexgcseengm1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexgcseengm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcseengm1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexgcseengm1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcseengm1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexgcseengm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcseengm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcseengm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcseengm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcseengm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcseengm1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$pcexgcseengm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1
#mediate_plot(pcexgcseengm1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcseengm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsescim1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsescim1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexgcsescim1<- sem(NonCog_corrected_FRC_1_pollution_pcexgcsescim1,dat = datNonCog_corrected_FRC_1_pollution_pcexgcsescim1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsescim1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexgcsescim1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsescim1
#mediate_plot(pcexgcsescim1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexgcsescim1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsescim1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexgcsescim1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsescim1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexgcsescim1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsescim1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsescim1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsescim1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsescim1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsescim1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$pcexgcsescim1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1
#mediate_plot(pcexgcsescim1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsescim1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsematm1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsematm1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexgcsematm1<- sem(NonCog_corrected_FRC_1_pollution_pcexgcsematm1,dat = datNonCog_corrected_FRC_1_pollution_pcexgcsematm1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsematm1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexgcsematm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsematm1
#mediate_plot(pcexgcsematm1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexgcsematm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsematm1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexgcsematm1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsematm1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexgcsematm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsematm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsematm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsematm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsematm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsematm1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$pcexgcsematm1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1
#mediate_plot(pcexgcsematm1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsematm1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsecorem1 M: pollution
datNonCog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pollution < 4,]
datNonCog_corrected_FRC_1_pollution_pcexgcsecorem1<- dat[dat$pollution > -4,]
fitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1<- sem(NonCog_corrected_FRC_1_pollution_pcexgcsecorem1,dat = datNonCog_corrected_FRC_1_pollution_pcexgcsecorem1)
#summary(fitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1<- parameterEstimates(fitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~pollution+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="pollution",EduAch="pcexgcsecorem1",Model_est)
ParamNonCog_corrected_FRC_1_pollution_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1)
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1<- cbind(ParamNonCog_corrected_FRC_1_pollution_pcexgcsecorem1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_occupancyrating
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_occupancyrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_occupancyrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_occupancyrating",EduAch="pcexgcsecorem1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_healthrating
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- dat[dat$neighbourhood_quality_healthrating > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_healthrating+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_healthrating",EduAch="pcexgcsecorem1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_householdsize
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- dat[dat$neighbourhood_quality_householdsize > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_householdsize+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_householdsize",EduAch="pcexgcsecorem1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_quality_populinhouseholds
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds < 4,]
datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- dat[dat$neighbourhood_quality_populinhouseholds > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- sem(NonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,dat = datNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_quality_populinhouseholds+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_quality_populinhouseholds",EduAch="pcexgcsecorem1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,Model_fit)
### GPS: NonCog_corrected_FRC_1 EA: pcexgcsecorem1 M: neighbourhood_economy_qualification
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$pcexgcsecorem1 > -4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification < 4,]
datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- dat[dat$neighbourhood_economy_qualification > -4,]
fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- sem(NonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,dat = datNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1)
#summary(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, standardized=T, fit.measures=T, rsq=T)
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- parameterEstimates(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, output = "data.frame")
#output_fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1
#mediate_plot(pcexgcsecorem1~neighbourhood_economy_qualification+NonCog_corrected_FRC_1,dat=dat)
#semPaths(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1, "model","est", node.label.cex=5, edge.label.cex=1.5, fade=FALSE, sizeMan=10, label.cex = 1.5, curvePivot = TRUE, rotation = 2)
#title("fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1")
Model_est <- broom::tidy(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,conf.int = TRUE)
Model_est1 <- cbind(GPS="NonCog_corrected_FRC_1",Mediator="neighbourhood_economy_qualification",EduAch="pcexgcsecorem1",Model_est)
ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- Model_est1[c(7:9), c(1:3,6:15)]
Model_fit <- broom::glance(fitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1)
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1<- cbind(ParamNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,Model_fit)library(gtools)##
## Attaching package: 'gtools'
## The following object is masked from 'package:psych':
##
## logit
Model_est_neighbourhoods <- smartbind(
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsenum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseabcnum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsepsct1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsegrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexothergrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexadvgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexallgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcseengm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsescim1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsematm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_pollution_pcexgcsecorem1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,
ParamfitEA3_Lee2018_no23andme_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsenum1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsenum1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsenum1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsenum1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsenum1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseabcnum1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseabcnum1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseabcnum1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseabcnum1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsepsct1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsepsct1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsepsct1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsepsct1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsegrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsegrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsegrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsegrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexothergrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexothergrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexothergrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexothergrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexothergrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexadvgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexadvgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexadvgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexadvgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexallgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexallgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexallgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexallgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexallgrdm1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcseengm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcseengm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcseengm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcseengm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcseengm1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsescim1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsescim1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsescim1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsescim1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsescim1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsematm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsematm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsematm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsematm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsematm1,
ParamfitIQ_Savage2018_corrected_FRCT1_pollution_pcexgcsecorem1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_healthrating_pcexgcsecorem1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_householdsize_pcexgcsecorem1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,
ParamfitIQ_Savage2018_corrected_FRCT1_neighbourhood_economy_qualification_pcexgcsecorem1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,
Paramfitc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsenum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseabcnum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsepsct1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsegrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexothergrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexadvgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexallgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcseengm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsescim1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsematm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_pollution_pcexgcsecorem1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,
Paramfitnc_chol_cog_noncog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,
ParamfitCog_corrected_FRC_1_pollution_pcexgcsenum1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,
ParamfitCog_corrected_FRC_1_pollution_pcexgcseabcnum1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,
ParamfitCog_corrected_FRC_1_pollution_pcexgcsepsct1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,
ParamfitCog_corrected_FRC_1_pollution_pcexgcsegrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,
ParamfitCog_corrected_FRC_1_pollution_pcexothergrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,
ParamfitCog_corrected_FRC_1_pollution_pcexadvgrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,
ParamfitCog_corrected_FRC_1_pollution_pcexallgrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,
ParamfitCog_corrected_FRC_1_pollution_pcexgcseengm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,
ParamfitCog_corrected_FRC_1_pollution_pcexgcsescim1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,
ParamfitCog_corrected_FRC_1_pollution_pcexgcsematm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,
ParamfitCog_corrected_FRC_1_pollution_pcexgcsecorem1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,
ParamfitCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,
ParamfitCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsenum1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsenum1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsenum1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsenum1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsenum1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsenum1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcseabcnum1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseabcnum1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseabcnum1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseabcnum1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseabcnum1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseabcnum1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsepsct1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsepsct1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsepsct1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsepsct1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsepsct1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsepsct1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsegrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsegrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsegrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsegrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsegrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsegrdm1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexothergrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexothergrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexothergrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexothergrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexothergrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexothergrdm1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexadvgrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexadvgrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexadvgrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexadvgrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexadvgrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexadvgrdm1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexallgrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexallgrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexallgrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexallgrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexallgrdm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexallgrdm1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcseengm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcseengm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcseengm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcseengm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcseengm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcseengm1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsescim1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsescim1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsescim1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsescim1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsescim1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsescim1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsematm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsematm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsematm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsematm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsematm1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsematm1,
ParamfitNonCog_corrected_FRC_1_pollution_pcexgcsecorem1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_occupancyrating_pcexgcsecorem1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_healthrating_pcexgcsecorem1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_householdsize_pcexgcsecorem1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_quality_populinhouseholds_pcexgcsecorem1,
ParamfitNonCog_corrected_FRC_1_neighbourhood_economy_qualification_pcexgcsecorem1)